home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / oop_tp55.zip / LIST5_5.PAS < prev    next >
Pascal/Delphi Source File  |  1990-02-01  |  516b  |  19 lines
  1. program Listing5_5;
  2.  
  3. uses NewTags;  { Tags modified to abstract .Init method in DInput type
  4.                  and make .PutReading virtual. }
  5.  
  6. var
  7.    HS : HiSwitch;
  8.    LS : LoSwitch;
  9. begin
  10.      HS.Init('Tag1', 3.4, 2.1 );
  11.      LS.Init('Tag2', 6.7, 10.2 );
  12.      writeln( HS.TagNumber, ': Setpoint = ', HS.Setpoint:2:2,
  13.               '; Reading = ', HS.Reading:2:2 );
  14.      writeln( LS.TagNumber, ': Setpoint = ', LS.Setpoint:2:2,
  15.               '; Reading = ', LS.Reading:2:2 );
  16. end.
  17.  
  18. { Listing 5-5 }
  19.